home *** CD-ROM | disk | FTP | other *** search
/ Mac Mania 4 / MacMania 4.toast / / Tools&Utilities / NLphoneCheck 2.0 / NLphoneCheck2.0 / FMPR v2.x / NLphoneCheck1.1N,'s (.txt) < prev   
FileMaker Pro Database  |  1995-12-30  |  41KB  |  395 lines
  1. Alarm
  2. HBAM2001MAY84
  3. NLphoneCheck1.1N,'s :*
  4. 01114
  5. 104444444
  6. 12345
  7. 123456
  8. 174555555
  9. 788000
  10. 9789090
  11. Ergens
  12. Alarm
  13. Nieuw
  14. Wordt
  15. Betaald
  16. Gratis
  17. Nieuw
  18. Id@ntL@belB
  19. TelNew#1B
  20.  ,5), If(Left(TextToNum("0,."&TelOld)*10^7 ,5)="42576", Left(TextToNum("0,."&TelOld)*10^7 ,6), Left(TextToNum("0,."&TelOld)*10^6 ,4) ))))
  21. E: O/o  
  22.  0! F!'
  23. Enkel
  24. Trick/Truc
  25. Lijst
  26. EnkelB
  27. Nieuw Euro nr gratis'
  28. Nieuw Euro nr betaald'
  29. Oud nr omgezet'
  30. Nieuw nr'
  31. Oud nr is nieuw nr'
  32. Enkel
  33. Trick/Truc
  34. Lijst
  35. EnkelB
  36. 42578
  37. 42579
  38. 42576
  39. You cannot enter data into a calculationfield,
  40. but see below for a better trick.
  41. Je kan niet invoeren in een rekenveld,
  42. maar zie hieronder voor een betere truc.
  43. Trick/TrucB
  44. Trick/TrucB
  45.                                                                             or (TextToNum("0,."&TelOld) < 1/100) , "OK: Internationaal",                                                           If(Left(@#1,1)=F
  46. 1 and (Length(1&TextToNum(TelOld)) - Length(TextToNum("0,."&                               Middle(TelOld,Position(TelOld & "; ","; ",1),32)&1)))=2 ,                          "OK: Nieuw Euro nr",                
  47. 30-12-1995
  48.     COMMENT N
  49. ID@NTL@BEL
  50. TELNEW#1
  51. TELOLD
  52. TelOldB
  53. JJLcheckData
  54. JJLcheckData
  55. JJLcheckData
  56. JJLcheckData
  57.  Nu test op lookup fout
  58. E: (0&
  59. ?? / ? d >>>  F!('
  60. 6880060
  61. 8788000
  62. 9789090
  63. Afwijkende
  64. Comment
  65. Draaien
  66. Ergens
  67. Fantasienr
  68. Formattering
  69. Viavia
  70. Alarm
  71. 6266166
  72. 666666
  73. 8001234
  74. Alarm
  75. Comment
  76. Nieuw
  77. Onzinnig
  78. Tst123
  79. Viavia
  80. Wordt
  81. 06702431
  82. 14711164
  83. 14718666
  84. 16703021
  85. 2780300
  86. 3681740
  87. 3780100
  88. 3780200
  89. Alarm
  90. Nieuw
  91. Omgezet
  92. Weinig
  93. Alarm
  94. Comment
  95. Nieuw
  96. Onzinnig
  97. Viavia
  98. Wordt
  99. Pro 2.0 - 2.1I
  100. Main Dictionary
  101.                                                              If(1 = 1 ,""," Nu test op lookup fout") &                                              If(@#2 = 0 ,"Net+Abo bestaat niet of te kort nieuw nr",       H
  102.                                        If((Length(Int(TextToNum("0,."&TelOld&1)*                                   10^(Length(TextToNum("0,."&Left(TelOld,                     Position(TelOld&"; ", "; ", 1))&1))
  103. Gaat ergens in 1996 inU
  104. 112; nieuw alarm nr._
  105. OK: Nieuw Euro nr
  106. 0611; oud alarm nr; wordt 112F
  107. 6880060Q
  108. 61U (06) 11; oud alarm nr; wordt 112_    OK: 06 nr
  109. 8001234; 800 nrF
  110. 8788000Q
  111. (0800) 12 34; 800 nr_
  112. OK: Nieuw Euro nr gratis
  113. 909 2212 34 56; nieuw koop nrF
  114. 9789090Q
  115. 909U!(0909) 22 12 34 56; nieuw koop nr_
  116. OK: Nieuw Euro nr betaald
  117. 999; 123999; 123080 666666F
  118. 06702431Q
  119. (024) 366 66 66_
  120. OK: Oud nr omgezet
  121. 030 22 22 2; tst 123F
  122. 16703021Q
  123. Fantasienr, niet draaien!
  124. 030 22 22 22; tst 123F
  125. 16703021Q
  126. Fantasienr, niet draaien!U
  127. (030) 222 22 22; tst 123_
  128. OK: Oud nr omgezet
  129. 030 222 22 22; tst 123F
  130. 2780300Q
  131. Fantasienr, niet draaien!U
  132. (030) 222 22 22; tst 123_
  133. OK: Nieuw nr
  134. 030 222 22 22 2; tst123F
  135. 2780300Q
  136. Fantasienr, niet draaien!U
  137. E: 1d >>>> F!_
  138. 1 cijfer(s) te lang>>> F!>>> F!e langangjfer(s) te langsers
  139. YesfD
  140. E    Comment N
  141. Id@ntL@bel
  142. Id@ntL@belB
  143. TelNew#1B
  144. If(Position(TelOld,"O",1) 
  145.  1 and                               Position(TelOld,"O",1) < Position(TelOld & ";",";",1),"E: O/o  
  146.  0! F!", If(Length(Int(TextToNum("0,."&TelOld&1)*                                 B
  147.   10^(Length(TextToNum("0,."&Left(TelOld,                  Position(TelOld&"; ", "; ", 1))&1))-2))) < 3 ,     Middle(TelOld,Position(TelOld & "; ","; ",1)+2 ,99),                             If(Left(TextToNum("
  148. 0,.&C
  149. Nieuw
  150. Omgezet
  151. Weinig
  152. Pro 1.0F!
  153. Pro 2.0 - 2.1I
  154. Main Dictionary
  155. 666666
  156. 8001234
  157. Alarm
  158. Comment
  159. Nieuw
  160. Onzinnig
  161. Wordt
  162. 06702431
  163. 16703021
  164. 6880060
  165. 8788000
  166. 9789090
  167. Draaien
  168. Ergens
  169. Fantasienr
  170. Alarm
  171. Pro 1.0F!
  172. Pro 2.0 - 2.1I
  173. Main Dictionary
  174. 1,."&TelOld)*1000 ,4) > 1090 and Left(TextToNum("1,."&TelOld)*1000 ,4) 
  175.  1099 ,       "00"&Right(TelOld, Length(TelOld)-2),               If((Position(TelOld,"+",1) 
  176.  0 and TextToNum("0,."&TelOld) =            D
  177. TextToNum("0,."&Right(TelOld, Length(TelOld)- Position(TelOld,"+",1)))) or (TextToNum("0,."&TelOld) < 1/100) or (Left(@#1,1)=1 and (Length(1&TextToNum(TelOld)) - Length(TextToNum("0,."&Middle(TelOld,Position(Te
  178. 950"or Left(TextToNum("0,."&TelOld)*10^6 ,4)="4951"or Left(TextToNum("0,."&TelOld)*10^6 ,4)="8360"or Left(TextToNum("0,."&TelOld)*10^6 ,4)="8851"or Left(TextToNum("0,."&TelOld)*10^7 ,5)="42572"or Left(TextToNumL
  179. ("0,."&TelOld)*10^7 ,5)="42575"or Left(TextToNum("0,."&TelOld)*10^7 ,5)="42577"or Left(TextToNum("0,."&TelOld)*10^7 ,5)="42578"or Left(TextToNum("0,."&TelOld)*10^7 ,5)="42579", Left(TextToNum("0,."&TelOld)*10^7
  180. "or Left(TextToNum("0,."&TelOld)*10^6 ,4)="2990"or Left(TextToNum("0,."&TelOld)*10^6 ,4)="3450"or Left(TextToNum("0,."&TelOld)*10^6 ,4)="3480"or Left(TextToNum("0,."&TelOld)*10^6 ,4)="4132"or Left(TextToNum("0,J
  181. ."&TelOld)*10^6 ,4)="4160"or Left(TextToNum("0,."&TelOld)*10^6 ,4)="4167"or Left(TextToNum("0,."&TelOld)*10^6 ,4)="4180"or Left(TextToNum("0,."&TelOld)*10^6 ,4)="4927"or Left(TextToNum("0,."&TelOld)*10^6 ,4)="4
  182. ",""),                 If(Left(@#2 ,1) 
  183.  1 ,"Oud nr omgezet","")&                                                                If(Left(@#2 ,1) = 2 ,"Nieuw nr","")&                                           IfR6(Left(@#2 ,1) = 3 ,"Oud nr is nieuw nr","")) )))))))))
  184. E: Letter O/o  
  185.  cijfer 0! F!'
  186. Te weinig cijfer
  187. Now length check
  188. User Dictionary
  189. '    d <<<< F!'    d >>>> F!
  190. )="6"  or Left(TextToNum("0,."&TelOld)*10^6 ,1)="7", Left(TextToNum("0,."&TelOld)*10^6 , If(Length(Int(TextToNum("0,."&TelOld&1)*                                   10^(Length(TextToNum("0,."&Left(TelOld,       H
  191.                Position(TelOld&"; ", "; ", 1))&1))-3))) < 8 or                                Left(TextToNum("0,."&TelOld)*10^6 ,1)="6",2 ,3)),                     If(Left(TextToNum("0,."&TelOld)*10^6 ,4)="2907
  192. TelOld)*10^6 ,2)="30"or Left(TextToNum("0,."&TelOld)*10^6 ,2)="33"or Left(TextToNum("0,."&TelOld)*10^6 ,2)="35"or Left(TextToNum("0,."&TelOld)*10^6 ,2)="38"or Left(TextToNum("0,."&TelOld)*10^6 ,2)="43"or Left(TF
  193. extToNum("0,."&TelOld)*10^6 ,2)="45"or Left(TextToNum("0,."&TelOld)*10^6 ,2)="46"or Left(TextToNum("0,."&TelOld)*10^6 ,2)="53"or Left(TextToNum("0,."&TelOld)*10^6 ,2)="58"or Left(TextToNum("0,."&TelOld)*10^6 ,1
  194. ), Position(TelOld&"; ","; ",1) - Position(TelOld,Left(@#2,1),1))),If(Left(@#2,1) = 6 ,2 ,4),9)) >          2 ," ","")& Middle(Middle(TextToNum(Middle(TelOld,Position(TelOld,Left(@#2,1),1), Position(TelOld&"; "R
  195. ,"; ",1) - Position(TelOld,Left(@#2,1),1))), If(Left(@#2,1) = 6 ,2 ,4),9),3 ,2) & If(Length(Middle(TextToNum(Middle(TelOld, Position(TelOld,Left(@#2,1),1), Position(TelOld&"; ","; ",1) - Position(TelOld,Left(@#
  196. 2,1),1))),If(Left(@#2,1) = 6 ,2 ,4),9)) > 4 ,      " ","")& Middle(Middle(TextToNum(Middle(TelOld,Position(TelOld,Left(@#2,1),1), Position(TelOld&"; ","; ",1) - Position(TelOld,Left(@#2,1),1))), If(Left(@#2,1) T
  197. = 6 ,2 ,4),9),5 ,2) & If(Length(Middle(TextToNum(Middle(TelOld, Position(TelOld,Left(@#2,1),1), Position(TelOld&"; ","; ",1) - Position(TelOld,Left(@#2,1),1))),If(Left(@#2,1) = 6 ,2 ,4),9)) > 6 ,      " ","")& 
  198.                     Length(TextToNum("0,."&Left(TelOld,Position(TelOld&"; ","; ",1)) &1)) - 3 ,1))&" "& Middle(TextToNum("0.,"&TelOld&1),                                                    Length(TextToNum("0,.Zr"&Left(TelOld,Position(TelOld&"; ","; ",1))& 1)) - 2 ,2))& Middle(TelOld,Position(TelOld&"; ","; ",1),32) ))))))))
  199. sition(TelOld & "; ","; ",1)+2 ,99),                             If(Left(TextToNum("
  200. 0  ?? F!",                                                                                             "(0"&TextToNum(Middle(@#2 ,4 ,3))&") "&                   If(Left(@#2,1) > 4 , Left(Middle(TextToNum(MiddleP
  201. (TelOld, Position(TelOld,Left(@#2,1),1), Position(TelOld&"; ","; ",1) - Position(TelOld,Left(@#2,1),1))),If(Left(@#2,1) = 6 ,2 ,4),9),2) & If(Length(Middle(TextToNum(Middle(TelOld, Position(TelOld,Left(@#2,1),1
  202. lOld & "; ","; ",1),32)&1)))=2), TelOld,                                                                   If(1 = 1 ,""," Nu test op lookup fout") &                                              If(@#2 = 0 ,"E: F
  203. (0"&Left(@#1, If(Length(@#1) < 4 ,2 ,3))&") "& Middle(@#1,If(Length(@#1) < 4 ,3 ,4),10)&"?? / ? d >>>  F!",                                              If((Length(Int(TextToNum("0,."&TelOld&1)*                
  204. Middle(Middle(TextToNum(Middle(TelOld,        Position(TelOld,Left(@#2,1),1), Position(TelOld&"; ","; ",1) - Position(TelOld,Left(@#2,1),1))), If(Left(@#2,1) = 6 ,2 ,4),9),7 ,2),                                V
  205.                           Middle(@#2,7 ,Right(@#2 ,1))&                                          If(Middle(@#2 ,2 ,1) > 4 ,Middle(TextToNum("0.,"&TelOld&1),                                                    Le
  206. ngth(TextToNum("0,."&Left(TelOld,Position(TelOld&"; ","; ",1)) &1)) - Middle(@#2 ,2 ,1), Middle(@#2 ,2 ,1)-4)&" ","")&                                              If(Middle(@#2 ,2 ,1)  > 3 ,Middle(TextToNum("0X
  207. .,"&TelOld&1),                                                    Length(TextToNum("0,."&Left(TelOld,Position(TelOld&"; ","; ",1)) &1)) - 4 ,2), Middle(TextToNum("0.,"&TelOld&1),                                
  208. E: (0'
  209. ) 0  ??J
  210.  F!('
  211.     Helvetica
  212. Monaco
  213. Chicago
  214. New Century Schlbk
  215. Geneva
  216. Courier
  217. Times
  218. Zapf Chancery
  219. No digits found
  220. Bestaat
  221. Betaald
  222. Cijfer
  223. Cijfers
  224. Gratis
  225. Letter
  226.                    10^(Length(TextToNum("0,."&Left(TelOld,Position(TelOld&"; ", "; ", 1))&1))-3))) = 8  and  Left(@#2,1) = 1),                                                           "(0"& Middle (TextToNum("H
  227. 0,."&TelOld)*10^9 ,1 ,If(Length(@#1)=3 ,2 ,3)) & ") " & Middle (TextToNum("0,."&TelOld)*10^9 ,If(Length(@#1)=3 ,3 ,4),If(Length(@#1)=3 ,3 ,2)) & " " & Middle (TextToNum("0,."&TelOld)*10^9 ,6 ,2) & " " & Middle(
  228. 9991U
  229. E: (0999) 1?? / ? d >>>  F!_(Net+Abo bestaat niet of te kort nieuw nr
  230. ; onzinnig commentU
  231. onzinnig comment_
  232. Te weinig cijfers
  233. 080 666666F
  234. 06702431Q
  235. (024) 366 66 66_
  236. OK: Oud nr omgezet
  237. 030 22 22 2; tst 123F
  238. 16703021Q
  239. Fantasienr, niet draaien!U
  240. E: 1d <<<< F!_
  241. 1 cijfer(s) te kort
  242. (TextToNum("0,."&TelOld)*10^6 ,2)="50"or Left(TextToNum("0,."&TelOld)*10^6 ,2)="55"or Left(TextToNum("0,."&TelOld)*10^6 ,2)="70"or Left(TextToNum("0,."&TelOld)*10^6 ,2) ="80"or Left(TextToNum("0,."&TelOld)*10^6D
  243.  ,2)="85"or Left(TextToNum("0,."&TelOld)*10^6 ,2) ="90", Left(TextToNum("0,."&TelOld)*10^6 ,3), If(Left(TextToNum("0,."&TelOld)*10^6 ,2)="15"or Left(TextToNum("0,."&TelOld)*10^6 ,2)="23"or Left(TextToNum("0,."&
  244. If(Left(TextToNum("0,."&TelOld)*10^6 ,2)="10"or Left(TextToNum("0,."&TelOld)*10^6 ,2)="13"or Left(TextToNum("0,."&TelOld)*10^6 ,2)="20"or Left(TextToNum("0,."&TelOld)*10^6 ,2)="24"or Left(TextToNum("0,."&TelOldB
  245. )*10^6 ,2)="26"or Left(TextToNum("0,."&TelOld)*10^6 ,2)="36"or Left(TextToNum("0,."&TelOld)*10^6 ,2)="37"or (Left(TextToNum("0,."&TelOld)*10^6 ,2)="40" and  Left(TextToNum("0,."&TelOld)*10^6 ,3) 
  246.  "406")or Left
  247.                                                               If(Middle(Int(TextToNum("0,."&TelOld&1)* 10^(Length(TextToNum("0,."&TelOld&1))-2)),                      (Middle(@#2 ,3 ,1)-Middle(@#2 ,2 ,1)+2),1) N
  248. = 0 and Left(@#2,1) < 5 ,                          "E: (0"&Left(Int(TextToNum("0,."&TelOld&1)* 10^(Length(TextToNum("0,."&TelOld&1))-2)),                            Middle(@#2,3 ,1) - Middle(@#2,2 ,1) + 1)& ") 
  249. E: (0&
  250. ?? / ? d >>>  F!('
  251.         "E: " & Abs(Length(Int(TextToNum("0,."&TelOld&1)*                                   10^(Length(TextToNum("0,."&Left(TelOld,Position(TelOld&"; ", "; ", 1))&1))-3))) - Middle(@#2 ,3 ,1))& If((Length(Int(TL
  252. extToNum("0,."&TelOld&1)*                                   10^(Length(TextToNum("0,."&Left(TelOld,Position(TelOld&"; ", "; ", 1))&1))-3))) - Middle(@#2 ,3 ,1)) <0 , "d <<<< F!",  "d >>>> F!"),                 
  253. TextToNum("0,."&TelOld)*10^10 ,8 ,2) &  Middle(TelOld,Position(TelOld&"; ","; ",1),32),                                                                                          If(1=1 ,"","Now length check")  &J
  254.  If((Length(Int(TextToNum("0,."&TelOld&1)*                                   10^(Length(TextToNum("0,."&Left(TelOld,Position(TelOld&"; ", "; ", 1))&1))-3))) 
  255.  Middle(@#2 ,3 ,1) and Left (@#2 ,1) < 5) ,         
  256. TelNew#1
  257. E    Comment N
  258. 112; nieuw alarm nr.F
  259.  Left(@#2 ,1) < 5)  and (Length(Int(TextToNum("0,."&TelOld&1)*                                   10^(Length(TextToNum("0,."&Left(TelOld,                    Position(TelOld&"; ", "; ", 1))&1))-3))) 
  260.  8 or Left(@L
  261. #2,1) 
  262.  1) ,                                                                              Abs(Length(Int(TextToNum("0,."&TelOld&1)*                                   10^(Length(TextToNum("0,."&Left(TelOld,     
  263. 42572
  264. 42575
  265. 42577
  266. A    Comment NB
  267. If(Position(TelOld,"O",1) 
  268.  1 and                               Position(TelOld,"O",1) < Position(TelOld & ";",";",1),                                   "E: Letter O/o  
  269.  cijfer 0! F!", If(Length(Int(TextToNum(B
  270. "0,."&TelOld&1)*                                   10^(Length(TextToNum("0,."&Left(TelOld,                    Position(TelOld&"; ", "; ", 1))&1))-2)))  < 3 , "Te weinig cijfers",                                
  271. 2212@
  272. 6880060@
  273. Gaat@
  274. Nieuw@
  275. 104444444; bgg 555 55 55F
  276. 3780100Q
  277. (010) 444 44 44; bgg 555 55 55_
  278. OK: Oud nr is nieuw nr
  279. %A    174555555F
  280. 3681740Q
  281. 1745U
  282. (0174) 55 55 55_
  283. OK: Oud nr is nieuw nr
  284. 020 6266166F
  285. 3780200Q
  286. ViaViaU
  287. (020) 626 61 66_
  288. OK: Oud nr is nieuw nr
  289. ; (020) 626.616.6; = ViaViaF
  290. 3780200Q
  291. 206600Q
  292. 206 66 66 66F
  293. 14718666 3Q
  294. 1866U
  295. (0186) 66 66 66_
  296. OK: Nieuw nr
  297. Gebruik
  298. Leggen
  299. Viavia
  300. 6266166
  301. Alarm
  302. Comment
  303. Nieuw
  304. Onzinnig
  305. Viavia
  306. Wordt
  307. l    {I0_*n
  308. L    [i0
  309. l    {I0_*n
  310. A    JJL/ShareB
  311. Users
  312. YesfD
  313. LijstB
  314. TelOld
  315. t niet of te kort nieuw nr'
  316. OK: Nieuw nr
  317. Now length check
  318. Te weinig cijfer
  319. Abo nr begint met een 0'
  320. OK: &
  321. 06 nr'
  322. Nieuw Euro nr gratis'
  323. Nieuw EI
  324. uro nr betaald'
  325. Oud nr omgezet'
  326. Nieuw nr'
  327. Oud nr is nieuw nr'
  328. Int(TextToNum("0,."&TelOld&1)* 10^(Length(TextToNum("0,."&TelOld&1))-2)),                      (Middle(@#2 ,3 ,1)-Middle(@#2 ,2 ,1)+2),1) = 0 and               Left(@#2,1) < 5 ,"Abo nr begint met een 0",  "OK: P
  329. " &                                If(Left(@#2,1) > 4 ,If(Left (@#2 ,1) = 6 ,"06 nr","")&               If(Left(@#2 ,1) = 8 ,"Nieuw Euro nr gratis","")&               If(Left(@#2 ,1) = 9 ,"Nieuw Euro nr betaald
  330.            Position(TelOld&"; ", "; ", 1))&1))-3))) - Middle(@#2 ,3 ,1))&             " cijfer(s) te" & If(Length(Int(TextToNum("0,."&TelOld&1)*                                   10^(Length(TextToNum("0,."&LeftN
  331. (TelOld,                  Position(TelOld&"; ", "; ", 1))&1))-3))) - Middle(@#2 ,3 ,1) <0 ,           " kort",  " lang"),                                                                               If(Middle(
  332. -3))) = 8  and  Left(@#2,1) = 1 ),                                              "OK: Nieuw nr",                                                                                          If(1=1 ,"","Now length chJ
  333. eck")  & If((Length(Int(TextToNum("0,."&TelOld&1)*                                   10^(Length(TextToNum("0,."&Left(TelOld,                      Position(TelOld&"; ", "; ", 1))&1))-3))) 
  334.  Middle(@#2 ,3 ,1) and
  335. EBThe trick: TelOld is transparent, and on top of/en boven op Telnew
  336. Oud intern. omgz.&
  337. OK: InC
  338. ternationaal&
  339. OK: Nieuw Euro nr
  340.  Nu test op lookup fout
  341. '(Net+Abo bestaa
  342.  cijfer(s) te('
  343. ; ('G
  344.  kort'
  345.  lang
  346. 'S7Gebruik comment om afwijkende formattering op te leggenU
  347. (020) 626.616.6; = ViaVia_
  348. Te weinig cijfers
  349. 186 66 66 66F
  350. 14718666 3Q
  351. 1866U
  352. (0186) 66 66 66_
  353. OK: Nieuw nr
  354. 01114 12345F
  355. 14711164 3Q
  356. 1114U
  357. (0111) 41 23 45_
  358. OK: Nieuw nr
  359. 09O9 123456F
  360. 9912U
  361. E: O/o  
  362.  0! F!_
  363. E: Letter O/o  
  364.  cijfer 0! F!
  365. TelOld
  366. TelNew#1
  367. !!!!!  Om geimporteerde of al bestaande gegevens
  368. om te zetten moet de cursor in TelOld gezet worden en
  369. Zoek opnieuw op uit het Wijzig Menu
  370. gedaan worden.  !!!!!!!
  371. E    Comment N
  372. Id@ntL@bel
  373. E    Comment N
  374. Id@ntL@bel
  375. Dubbel veld, zowel invoer als resultaat.
  376. Druk op Tab om de invoer te zien,
  377. klik erbuiten voor het resultaat.
  378. Handig als je ruimte tekort komt.
  379. Double field, both input and result.
  380. Press Tab to see the input,
  381. CB)lick outside for the result.
  382. Saves space.
  383. You cannot enter data into a calculationfield,
  384. but see below for a better trick.
  385. Je kan niet invoeren in een rekenveld,
  386. maar zie hieronder voor een betere truc.
  387. You cannot enter data into a calculationfield,
  388. but see below for a better trick.
  389. Je kan niet invoeren in een rekenveld,
  390. maar zie hieronder voor een betere truc.
  391.                                     If(Left(TextToNum("1,."&TelOld)*1000 ,4) > 1090 and Left(TextToNum("1,."&TelOld)*1000 ,4)
  392. 1099 ,"Oud intern. omgz.",                                                   If((PosD
  393. ition(TelOld,"+",1) 
  394.  0 and TextToNum("0,."&TelOld) =            TextToNum("0,."&                                                                      Right(TelOld, Length(TelOld)- Position(TelOld,"+",1))))    
  395.